﻿Public Module Module1
  Sub Main()
    Dim arrDip(2) As Dipendente
    arrDip(0) = New Dipendente(1025, _
       "Bianchi", "Mario")
    arrDip(1) = New Dipendente(2150, _
       "Neri", "Giulia")
    arrDip(2) = New Dipendente(3210, _
       "Rossi", "Mario")
    For Each d As Dipendente In arrDip
      Console.WriteLine(d.leggiMatricola & _
         " - " & d.leggiNominativo)
    Next
    Console.WriteLine()
    arrDip(0).scriviCognome = "Gialli"
    arrDip(1).scriviCognome = "Verdi"
    arrDip(2).scriviNome = "Paolo"
    For Each d As Dipendente In arrDip
      Console.WriteLine(d.leggiMatricola & _
      " - " & d.leggiNominativo)
    Next
    Console.ReadLine()
  End Sub
End Module

